home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / print screen (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 0 ifmmthen60000
  2. 10 ifa=.thena=1:load"print screen.ml",8,1
  3. 15 poke53280,8:poke53281,13
  4. 20 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  5. 30 fora=1to23:print"[221]"spc(38)"[221]";:next
  6. 40 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  7. 50 fora=217to242:pokea,peek(a)or128:next
  8. 60 print"[149]          [204][207][193][196][211][212][193][210] [208]resents:"
  9. 70 print"                             "
  10. 80 print"        [208]rint [211]creen [213]tility  "
  11. 90 print"                              "
  12. 100 print"         by [196]onald [208]. [205]aple   "
  13. 110 print"                              "
  14. 120 print"          ([195])opyright 1987    "
  15. 130 print"                              "
  16. 140 print"                              "
  17. 150 print"       [149][208]ress [211][208][193][195][197] to continue.":poke198,.
  18. 160 geta$:ifa$<>" "then160
  19. 165 print"[147]          [208]rint [211]creen [213]tility"
  20. 170 print"    [211]ince this program is a machine"
  21. 180 print"language routine wedged into the [201][210][209]"
  22. 190 print"vector, we can't provide a demo for"
  23. 200 print"you. [212]he commands are as follows:"
  24. 210 print"[[195][207][205][205][207][196][207][210][197] [203][197][217]] + [198]1 - [208]rint [211]creen"
  25. 220 print"[[195][207][205][205][207][196][207][210][197] [203][197][217]] + [198]3 - [212]oggles output"
  26. 230 print"[[195][207][205][205][207][196][207][210][197] [203][197][217]] + [198]5 - [196]isables wedge"
  27. 240 print"               [212]ry it out!"
  28. 250 print"      [212]o return to loadstar, enter:"
  29. 260 print"             goto loadstar":sys65418:sys49152:mm=-1:end
  30. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  31. 60010 ifer<>63thenend
  32. 60020 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  33. 60030 sys65418:load"hello connect",8
  34.